﻿Public Class NeoApp

   
    Private Sub NeoApp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        CheckBox1.Checked = My.Settings.DisplayUserName
        CheckBox2.Checked = My.Settings.DisplayOperatingSystem

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        My.Settings.DisplayUserName = CheckBox1.Checked

        My.Settings.Save()

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        My.Settings.DisplayOperatingSystem = CheckBox2.Checked

        My.Settings.Save()

    End Sub
  
End Class